﻿Public Class CualidadesUDM
    Dim ADCuaUDM As New ADCono.CualidadesUDM

    Public Function EliminarCualidades(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = ADCuaUDM.EliminarCualidades(Dat(0))
        Return DS
    End Function

    Public Function EliminarTDC(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = ADCuaUDM.EliminarTDC(Dat(0))
        Return DS
    End Function

    Public Function EliminarUDM(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = ADCuaUDM.EliminarUDM(Dat(0))
        Return DS
    End Function

    Public Function GenerarCualidades(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = ADCuaUDM.GenerarCualidades(Dat(0), Dat(1), Dat(2))
        Return DS
    End Function

    Public Function GenerarTDC(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = ADCuaUDM.GenerarCualidades(Dat(0), Dat(1), Dat(2))
        Return DS
    End Function

    'NomEle: Nombre de Elemento (Elemento que conforma un Producto) y Cla: Clasificación
    Public Function ObtenerCualidades(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = ADCuaUDM.ObtenerCualidades(Dat(0), Dat(1), Dat(2), Dat(3), Dat(4))
        Return DS
    End Function

    Public Function ObtenerTDC(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = ADCuaUDM.ObtenerTDC(Dat(0), Dat(1), Dat(2))
        Return DS
    End Function

    Public Function ObtenerUnidadesDeMedida(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = ADCuaUDM.ObtenerUnidadesDeMedida(Dat(0), Dat(1))
        Return DS
    End Function
End Class
